'========== DBMGR.TXT ==========

'dbtalk.dll function declarations
Declare Function DbClose Lib "dbtalk.dll" (ByVal hDb As Integer) As Long
Declare Function DbFileGetLockStatus Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, ByVal lpLockStatus As Integer) As Long
Declare Function DbFileLock Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String) As Long
Declare Function DbFileUnlock Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String) As Long
Declare Function DbFlush Lib "dbtalk.dll" (ByVal hDb As Integer) As Long
Declare Function DbGetNbrClients Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal lpNbrClients As Integer) As Long
Declare Function DbOpen Lib "dbtalk.dll" (ByVal hParentWnd As Integer, ByVal szDbDir As String, ByVal szDbName As String, ByVal bHide As Integer, lphDb As Integer) As Long
Declare Function DbRecordDelete Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String) As Long
Declare Function DbRecordFindFirst Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, ByVal szFldName As String) As Long
Declare Function DbRecordFindLast Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, ByVal szFldName As String) As Long
Declare Function DbRecordFindNext Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, ByVal szFldName As String) As Long
Declare Function DbRecordFindPrev Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, ByVal szFldName As String) As Long
Declare Function DbSetAdd Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szOwnerName As String, ByVal szMemberName As String) As Long
Declare Function DbSetDelete Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szOwnerName As String, ByVal szMemberName As String) As Long
Declare Function DbSetFindFirst Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szOwnerName As String, ByVal szMemberName As String) As Long
Declare Function DbSetFindLast Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szOwnerName As String, ByVal szMemberName As String) As Long
Declare Function DbSetFindNext Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szOwnerName As String, ByVal szMemberName As String) As Long
Declare Function DbSetFindPrev Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szOwnerName As String, ByVal szMemberName As String) As Long
Declare Function XDbRecordAdd Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, lpData As Any, ByVal nDataLen As Integer) As Long
Declare Function XDbRecordFindByKey Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, ByVal szFldName As String, lpKey As Any, ByVal nKeyLen As Integer) As Long
Declare Function XDbRecordGetByKey Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, ByVal szFldName As String, lpTarget As Any, ByVal nTargetLen As Integer, lpKey As Any, ByVal nKeyLen As Integer) As Long
Declare Function XDbRecordGetCurrency Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, lpTarget As Any, ByVal nTargetLen As Integer) As Long
Declare Function XDbRecordGetCurrent Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, lpTarget As Any, ByVal nTargetLen As Integer) As Long
Declare Function XDbRecordGetFirst Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, ByVal szFldName As String, lpTarget As Any, ByVal nTargetLen As Integer) As Long
Declare Function XDbRecordGetLast Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, ByVal szFldName As String, lpTarget As Any, ByVal nTargetLen As Integer) As Long
Declare Function XDbRecordGetNext Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, ByVal szFldName As String, lpTarget As Any, ByVal nTargetLen As Integer) As Long
Declare Function XDbRecordGetPrev Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, ByVal szFldName As String, lpTarget As Any, ByVal nTargetLen As Integer) As Long
Declare Function XDbRecordUpdate Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, lpData As Any, ByVal nDataLen As Integer) As Long
Declare Function XDbRecordUpdCurrency Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szRecName As String, lpData As Any, ByVal nDataLen As Integer) As Long
Declare Function XDbSetGetFirst Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szOwnerName As String, ByVal szMemberName As String, lpTarget As Any, ByVal nTargetLen As Integer) As Long
Declare Function XDbSetGetLast Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szOwnerName As String, ByVal szMemberName As String, lpTarget As Any, ByVal nTargetLen As Integer) As Long
Declare Function XDbSetGetNext Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szOwnerName As String, ByVal szMemberName As String, lpTarget As Any, ByVal nTargetLen As Integer) As Long
Declare Function XDbSetGetOwner Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szOwnerName As String, ByVal szMemberName As String, lpTarget As Any, ByVal nTargetLen As Integer) As Long
Declare Function XDbSetGetPrev Lib "dbtalk.dll" (ByVal hDb As Integer, ByVal szOwnerName As String, ByVal szMemberName As String, lpTarget As Any, ByVal nTargetLen As Integer) As Long

'CDB Error Defines
Global Const E_TESTDRIVE = -5
Global Const E_WINALLOC = -4
Global Const E_LOADMODULE = -3
Global Const E_INVALIDCASE = -2
Global Const E_DOS = -1
Global Const E_NORECNAME = 1
Global Const E_NOFLDNAME = 2
Global Const E_INVALIDSET = 3
Global Const E_NOTAKEY = 4
Global Const E_NOTFOUND = 5
Global Const E_NEXTGUESS = 6
Global Const E_NOCURRENT = 7
Global Const E_NONEXT = 8
Global Const E_NOPREV = 9
Global Const E_NOMEMBER = 10
Global Const E_NOOWNER = 11
Global Const E_FILELOCKED = 12
Global Const E_HASMEMBER = 13
Global Const E_HASOWNER = 14

'Currency index
Type currency_index
    filler As String * 36       'Contents of structure not used by
                                '  applications programmer
End Type